home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2002 #11 / Amiga Plus CD - 2002 - No. 11.iso / Tools / Development / PowerD / powerd / source / lib / powerd_lib.lha / PowerD_PPC / FileLength.d < prev    next >
Text File  |  2001-01-24  |  243b  |  14 lines
  1. OPT    NOSTD,NOHEAD,NOEXE,PPC
  2.  
  3. MODULE    'dos','dos/dos'
  4.  
  5. PROC FileLength(name:PTR TO CHAR)(LONG)
  6.     DEF    lock:BPTR,fib:FileInfoBlock,l=TRUE
  7.     IF lock:=Lock(name,ACCESS_READ)
  8.         IF Examine(lock,fib)
  9.             l:=fib.Size
  10.         ENDIF
  11.         UnLock(lock)
  12.     ENDIF
  13. ENDPROC l
  14.